SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant.m
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant\\k=2"];

OverbayP2Data=Get["C:\\drorbn\\AcademicPensieve\\People\\Overbay\\OverbayP2Data.m"];

$k=2; 
ℏ=γ=1;
$QZipFail=True;
tab=DeleteCases[Table[
{n,k}=List@@K;
fname="Data/"<>ToString[n]<>"_"<>ToString[k]<>".m";
Switch[FileType[fname],
None,None,
File,z=Get[fname]
];
z,
{K,AllKnots[{3,10}]}
], None]

tab1=Take[tab,All] /. (Knot[n_,k_]->Z_):> {(Subscript[n, k]),ω=Factor@Z[[2,1]],
Factor[((T^2)/((T^2)-1))(∂_T)ω],
Factor[(((T(∂_T)(T(∂_T)ω))-T(((T^2)+1)/((T^2)-1))(∂_T)ω)/((2 (((-1+T))^2) (((1+T))^2))/(T^2)))],
ρ1=Factor[(((Z[[2,4,2]]/.a|x|y->0)-T (ω^3)(∂_T)ω)/((T^(-1))(((T-1))^2)(ω^2)))],
(*Factor[-T Coefficient[Z[[2,4,2]],x y]/(2(1+T)(ω^3))],*)
(*P=Z[[2,4,3]]/.a|x|y->0; Factor[((T P)/((T-1)(ω^4)))],*)
Factor[T Coefficient[Z[[2,4,3]],(x^2)(y^2)]/(ω^6)],
Knot[n,k]/.OverbayP2Data
};
tab1//MatrixForm

543//FactorInteger